home *** CD-ROM | disk | FTP | other *** search
/ Super Shareware Collection / Super Shareware Collection.iso / os_2 / clisp.zip / DEFSTRUC.FAS < prev    next >
Text File  |  1994-02-05  |  15KB  |  207 lines
  1. (SYSTEM::VERSION '(SYSTEM::CLISP2 12. LISP:NIL 290893.))
  2. #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D5 37 02 30 DE 19 01) "SYSTEM")
  3. #Y(#:TOP-LEVEL-FORM-2 #20Y(00 00 00 00 00 01 D5 D6 D7 31 7A D5 D8 5F 2C 03 04 C0 19 01)
  4.    %STRUCTURE-REF SETF-EXPANDER %STRUCTURE-STORE SETF %SET-DOCUMENTATION
  5.   )
  6. #Y(#:TOP-LEVEL-FORM-3 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DS-SYMBOL-OR-ERROR
  7.    REMOVE-OLD-DEFINITIONS
  8.    #Y(DS-SYMBOL-OR-ERROR #18Y(01 00 00 00 00 02 A8 8B 03 03 00 19 02 D5 D6 AA 5E 02)
  9.       "~S: this is not a symbol: ~S" DEFSTRUCT
  10.   )  )
  11. #Y(#:TOP-LEVEL-FORM-4 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DS-ARG-DEFAULT
  12.    REMOVE-OLD-DEFINITIONS
  13.    #Y(DS-ARG-DEFAULT
  14.       #34Y(02 00 00 00 00 03 99 57 57 74 A7 88 5F 0D AA D5 A9 5C 02 14 5C 02 19 04 9B 19 04 8F 00
  15.            7A AA 99 1A 71
  16.           )
  17.       %FUNCALL
  18.   )  )
  19. #Y(#:TOP-LEVEL-FORM-5 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
  20.    DS-MAKE-CONSTRUCTOR-BODY REMOVE-OLD-DEFINITIONS
  21.    #Y(DS-MAKE-CONSTRUCTOR-BODY
  22.       #166Y(05 00 00 00 00 06 D5 D6 AE 02 21 80 4D AE 23 03 80 50 9F 20 80 50 C5 14 AC 5C 02 14 77
  23.             02 77 01 5F AB 98 1F 80 72 90 00 98 57 74 DD B3 02 21 80 43 B3 23 03 80 49 B3 23 0C 80
  24.             4C CE 14 D6 AA 5C 03 14 9B 56 1B 80 44 DC 9C 57 57 74 5C 02 14 5C 03 F6 80 02 16 01 7F
  25.             00 1A 48 D7 AD AD 5C 03 1A FF B9 C4 1A FF B1 DA AC DB DC A3 57 74 77 02 5C 04 1A FF A7
  26.             DE DC B4 77 02 D6 AB 5C 04 1A 42 DF A9 CB 5D 02 1A FF BA CD 1A FF B1 E4 9C 57 57 57 74
  27.             90 05 5C 03 1A FF B6 16 01 A7 7C A3 00 E5 32 02 20 5D 02 19 06
  28.            )
  29.       LET OBJECT %MAKE-STRUCTURE LIST MAKE-LIST MAKE-ARRAY :ELEMENT-TYPE QUOTE SETF %STRUCTURE-REF
  30.       NTH (OBJECT) VECTOR SVREF AREF THE (OBJECT)
  31.   )  )
  32. #Y(#:TOP-LEVEL-FORM-6 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DS-ARG-WITH-DEFAULT
  33.    REMOVE-OLD-DEFINITIONS
  34.    #Y(DS-ARG-WITH-DEFAULT
  35.       #35Y(02 00 00 00 00 03 A9 8A 08 10 A9 A9 37 06 C0 F8 C1 F7 6E 56 8E 00 06 9B 19 04 9A 19 03
  36.            AA A8 2F 02 19 04
  37.           )
  38.       #.#'FIRST #.#'EQ DS-ARG-DEFAULT
  39.   )  )
  40. #Y(#:TOP-LEVEL-FORM-7 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DS-MAKE-BOA-CONSTRUCTOR
  41.    REMOVE-OLD-DEFINITIONS
  42.    #Y(DS-MAKE-BOA-CONSTRUCTOR
  43.       #286Y(06 00 00 00 00 00 90 06 9F 57 74 D5 A8 D6 37 02 88 B3 07 D7 A8 D6 37 02 30 B3 14 8E 00
  44.             07 16 01 5F A8 5F 1A 22 D8 D9 B0 AC 90 04 AD 5E 05 98 56 1A 10 83 01 00 14 DA D6 37 02
  45.             88 B3 08 A7 8A 08 6D 98 14 80 02 7F 01 A8 89 92 67 16 02 A7 7D 43 00 A8 01 02 1A 05 A8
  46.             80 00 7F 02 A9 88 92 0B 83 02 01 14 DA D6 37 02 89 B3 6C A7 31 43 16 02 F6 DB AA D6 37
  47.             02 30 B3 75 01 02 1A 15 00 16 03 1A 29 DD 99 57 74 5C 02 1A 2D A8 B0 6C 07 80 00 7F 02
  48.             A9 88 92 0B 83 02 01 14 DA D6 37 02 89 B3 69 8F 00 59 DB A8 31 43 58 16 03 14 DD AB D6
  49.             37 02 6D B3 8E 00 4C 00 F6 DE DE AD D6 37 02 30 B3 75 01 02 8F 02 16 83 02 01 14 DA D6
  50.             37 02 88 B3 0B A8 B3 6C 07 80 00 7F 02 8E 02 6A A7 31 43 16 02 F6 5F B1 5F 1A 18 83 01
  51.             00 56 1C 10 90 00 B0 D6 37 02 88 B3 07 90 00 B4 6C 07 80 02 7F 01 A8 89 92 64 16 02 A7
  52.             7D 43 00 32 02 20 76 6F 04 20 DF AB A9 B3 B3 B3 B3 B3 6A 05 0B 5C 04 19 0B
  53.            )
  54.       &KEY #.#'EQ &ALLOW-OTHER-KEYS
  55.       "~S ~S: the argument list for the BOA contructor ~S must not contain ~S: ~S" DEFSTRUCT
  56.       #.LAMBDA-LIST-KEYWORDS &OPTIONAL DS-ARG-WITH-DEFAULT &REST &AUX DEFUN
  57.       DS-MAKE-CONSTRUCTOR-BODY
  58.   )  )
  59. #Y(#:TOP-LEVEL-FORM-8 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
  60.    DS-MAKE-KEYWORD-CONSTRUCTOR REMOVE-OLD-DEFINITIONS
  61.    #Y(DS-MAKE-KEYWORD-CONSTRUCTOR
  62.       #61Y(06 00 00 00 00 00 D5 AE D6 5F AC 1A 19 90 00 A8 6C 02 5C 01 1A 07 90 00 98 56 1B 71 00
  63.            14 AA 7C A1 02 16 01 7F 00 98 20 6D 16 01 A7 30 A3 16 01 76 AF AF AF AF AF 6A 05 03 5C
  64.            04 19 07
  65.           )
  66.       DEFUN &KEY DS-ARG-DEFAULT DS-MAKE-CONSTRUCTOR-BODY
  67.   )  )
  68. #Y(#:TOP-LEVEL-FORM-9 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DS-MAKE-PRED
  69.    REMOVE-OLD-DEFINITIONS
  70.    #Y(DS-MAKE-PRED
  71.       #123Y(04 00 00 00 00 05 AA 02 21 2D 00 14 D8 AD D9 AE 02 21 32 AE 23 07 80 45 DD E6 E2 E7 B0
  72.             77 03 E0 E8 E9 B2 77 03 D6 B3 77 02 77 03 5C 04 14 77 04 77 01 32 02 20 19 05 D5 D6 D7
  73.             AE 77 02 77 02 77 02 5C 01 1A 46 DA D6 AF 77 02 C6 5D 02 1A 5E E0 E1 D6 B2 77 02 77 03
  74.             5C 01 5D 02 1A 50 DD DE AE 23 0A 6C E2 E3 B0 77 03 E0 E4 B1 D0 78 02 D6 B3 77 02 77 03
  75.             5C 02 5D 02 1A FF B2
  76.            )
  77.       PROCLAIM QUOTE INLINE DEFUN (OBJECT) %STRUCTURE-TYPE-P (OBJECT) LIST AND (CONSP OBJECT) 0. EQ
  78.       (CAR OBJECT) > (LENGTH OBJECT) NTH (OBJECT) (SIMPLE-VECTOR-P OBJECT) (LENGTH OBJECT) SVREF
  79.       OBJECT
  80.   )  )
  81. #Y(#:TOP-LEVEL-FORM-10 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DS-MAKE-COPIER
  82.    REMOVE-OLD-DEFINITIONS
  83.    #Y(DS-MAKE-COPIER
  84.       #84Y(03 00 00 00 00 04 A8 02 21 1F A8 23 00 1B 00 14 D9 AC DA AC 02 21 20 AC 23 00 1F 9D 20
  85.            1F CF 14 77 04 77 01 32 02 20 19 04 D6 D7 D8 AD 77 02 77 02 77 02 5C 01 1A 58 C6 1A 65
  86.            C7 1A 62 DD DE DF E0 E1 E2 D7 A4 57 74 77 02 77 04 77 02 77 02 CE 5D 02 1A 4B
  87.           )
  88.       LIST PROCLAIM QUOTE INLINE DEFUN (STRUCTURE) (%COPY-STRUCTURE STRUCTURE)
  89.       (COPY-LIST STRUCTURE) LET* (OBJ-LENGTH (ARRAY-TOTAL-SIZE STRUCTURE)) OBJECT MAKE-ARRAY
  90.       OBJ-LENGTH :ELEMENT-TYPE
  91.       ((DOTIMES (I OBJ-LENGTH OBJECT) (SETF (AREF OBJECT I) (AREF STRUCTURE I))))
  92.       (LET* ((OBJ-LENGTH (LENGTH STRUCTURE)) (OBJECT (MAKE-ARRAY OBJ-LENGTH)))
  93.        (DOTIMES (I OBJ-LENGTH OBJECT) (SETF (SVREF OBJECT I) (SVREF STRUCTURE I)))
  94.   )  ))
  95. #Y(#:TOP-LEVEL-FORM-11 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DS-MAKE-ACCESSORS
  96.    REMOVE-OLD-DEFINITIONS
  97.    #Y(DS-MAKE-ACCESSORS
  98.       #131Y(04 00 00 00 00 05 5F A9 98 1F 80 70 90 00 98 56 1C 80 5C AC 90 01 6C 00 99 57 74 9A 57
  99.             57 57 74 D6 D7 D8 AC B5 77 01 AC 77 04 77 02 77 02 D6 D7 D9 AD 77 02 77 02 77 02 DA AC
  100.             DB DC AD B7 02 21 19 B7 23 0A 20 04 10 20 23 CE 14 DE B1 5C 03 14 77 03 77 04 5C 03 16
  101.             03 1A 16 DD D7 BA 77 02 DE B2 5C 04 1A 6A E0 B0 CC 5D 02 1A 63 CD 1A 5B 00 14 AA 7C A1
  102.             02 16 01 7F 00 1A FF 8C 16 01 A7 30 A3 19 06
  103.            )
  104.       CONCAT-PNAMES PROCLAIM QUOTE FUNCTION INLINE DEFUN (OBJECT) THE %STRUCTURE-REF OBJECT LIST
  105.       NTH (OBJECT) AREF SVREF
  106.   )  )
  107. #Y(#:TOP-LEVEL-FORM-12 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DS-MAKE-DEFSETFS
  108.    REMOVE-OLD-DEFINITIONS
  109.    #Y(DS-MAKE-DEFSETFS
  110.       #149Y(04 00 00 00 00 05 5F A9 1A 80 80 C8 1A 18 D9 DA DB DB B9 77 02 77 02 DC B0 B0 02 21 6E
  111.             D9 DE DB B3 77 02 CA 5D 03 14 5C 06 1A 80 42 D9 E0 D9 E1 B0 CD 78 03 CE 5D 03 1A 35 D9
  112.             E4 D9 E5 DC B1 77 04 D1 5D 03 1A 28 AC 90 01 6C 00 99 57 74 9A 57 57 57 74 D6 AA D7 D8
  113.             B4 02 21 FF B2 B4 23 04 4C A5 20 56 D9 E7 D9 E8 DC B1 77 04 D4 5D 03 14 77 05 5C 01 16
  114.             03 1A 0B 90 00 98 56 1C 04 A7 89 95 45 00 14 AA 7C A1 02 16 01 7F 00 98 20 69 16 01 A7
  115.             30 A3 19 06
  116.            )
  117.       CONCAT-PNAMES DEFSETF (STRUCT) (VALUE) LIST '%STRUCTURE-STORE QUOTE STRUCT VALUE 'THE (VALUE)
  118.       'SETF 'NTH (STRUCT) (VALUE) 'SETF 'AREF (VALUE) 'SETF 'SVREF (VALUE)
  119.   )  )
  120. #Y(#:TOP-LEVEL-FORM-13 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
  121.    CLOS::DEFINE-STRUCTURE-CLASS REMOVE-OLD-DEFINITIONS
  122.    #Y(CLOS::DEFINE-STRUCTURE-CLASS #9Y(01 00 00 00 00 02 00 19 02))
  123.   )
  124. #Y(#:TOP-LEVEL-FORM-14 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) DEFSTRUCT
  125.    REMOVE-OLD-DEFINITIONS MACRO
  126.    #Y(DEFSTRUCT
  127.       #1434Y(01 00 01 00 00 08 A9 6E 41 D5 8C 01 2D 80 50 9A 57 74 9B 57 75 A8 5F 60 01 02 60 D7 01
  128.              05 60 D7 D7 D7 5F B8 5F D7 D7 01 04 62 1A 8B 08 08 83 1A 18 04 1A 57 09 17 BF 8B 03 2A
  129.              BF 8A 7F 26 BE 5F A8 88 92 82 65 83 01 00 14 8B 7F 04 A7 5C 01 F6 A7 8A 08 80 E8 03 15
  130.              14 D9 62 1C D9 AB 5E 04 A9 2E 01 19 03 D8 D9 62 1C 5E 02 98 56 25 05 80 C5 C6 09 18 1A
  131.              80 D8 98 57 56 1C 75 09 18 1A 80 CE DC 62 1B 6C 08 80 17 1A 80 C4 98 1A 22 DF D9 62 1D
  132.              9C 57 57 1A 80 A3 98 57 1F 65 98 57 74 A7 2E 09 99 57 57 1F 64 99 57 57 74 8B 08 60 99
  133.              57 14 80 18 16 01 1A 80 97 98 57 1F 80 92 98 57 74 A7 2E 09 98 09 16 16 01 1A 80 84 98
  134.              57 1F 80 7F 98 57 74 A7 2E 09 98 09 15 16 01 1A 80 71 E0 D9 62 1C 62 1C 5E 03 8E 13 75
  135.              98 09 13 1A 80 60 E1 62 1C E4 6C 08 E5 E6 AB D2 76 77 03 5C 03 1A 20 98 57 74 98 1F 12
  136.              90 00 24 0C 0D E2 D9 9A 57 74 AA 2C 04 0E 98 57 56 F6 A7 8A 03 53 E1 A8 5C 02 09 10 16
  137.              01 1A 29 98 57 56 09 0E 1A 22 7A 0D 1A 1E C2 09 0C 1A 19 E8 D9 62 1C 9B 74 5E 03 90 00
  138.              8A 7F FF 27 D4 1A FF 10 98 57 56 1C 64 09 0C 7F 01 1A FE ED B2 02 55 09 0B 1B 81 5C B9
  139.              23 02 81 61 8F 12 81 5D EC D9 62 1A 5E 02 BF 6D 4C ED 7E 02 13 16 8E 15 81 54 EE 62 19
  140.              6C 08 5C 01 09 15 1A 81 4F 03 1D 1A 81 AF F3 D9 62 1A B4 5E 03 F4 D9 62 1A 62 1A 5E 03
  141.              61 22 D9 04 1D 1A 82 80 61 2A D9 62 1D AB BA 5E 04 83 19 08 04 19 57 FD 8F 11 81 66 75
  142.              90 00 A7 61 21 37 01 6E 76 8F 00 57 62 1B A8 C2 5A 58 09 13 37 01 7D 82 12 14 61 23 61
  143.              24 62 1E 77 02 61 25 61 26 61 27 61 24 AF 77 02 03 28 78 02 03 29 78 02 77 02 77 03 77
  144.              02 5C 01 09 11 A7 03 20 5A 14 B7 8B 00 FF A2 61 2B A8 03 2C 5A 14 6F 00 17 7D 43 06 1C
  145.              06 56 57 74 7D 89 08 91 02 5F 1A 81 73 98 1A 19 61 2F D9 62 21 AF AC 5E 04 98 57 75 5F
  146.              30 A8 1A 81 5A 83 01 00 1F 66 98 56 14 A7 B1 37 06 03 2D F8 03 2E F7 6E 56 8F 00 57 9A
  147.              1F 5D 9A 57 74 A7 88 5F 17 E1 61 30 AB 6C 08 E5 5F AB 77 03 77 03 80 09 37 01 7D 82 00
  148.              14 80 0A 99 57 75 A8 30 A8 16 01 9A 57 75 1A 81 0E 9B 57 57 57 75 02 1A 80 FC 61 32 D9
  149.              62 24 AE B3 62 27 5E 05 8E 00 69 AA 88 95 6E 9B 57 57 57 75 00 1A 80 E1 61 35 D9 62 24
  150.              AA AF B4 A1 57 57 57 74 5E 06 03 36 1A 81 70 16 02 B3 02 55 1C FE A1 09 0B 1C FE A4 B9
  151.              24 02 06 BF EB 2F 08 09 12 BD 02 21 FE A4 8F 15 FE AC 5F BD 37 07 7D 48 15 BA 02 22 07
  152.              EF 62 19 2F 08 09 13 B3 02 21 12 B3 23 1B 0E B3 23 1C 0A A4 1F FE 96 90 0C 24 1B FE 90
  153.              B1 8B 09 FE 90 B1 D7 8D 01 30 FE 89 B1 8B 85 05 B3 02 21 FE 87 B3 02 22 03 03 20 FB 90
  154.              19 8A 04 FE 93 8E 11 FE 9A BF 5C 01 09 10 61 24 B8 5C 02 09 0F 8F 0B 80 78 A4 1F 80 74
  155.              B7 A5 57 74 86 38 80 6C 03 39 14 D9 62 1A B6 5E 03 9A F7 79 00 1A 80 91 61 3C D9 04 1F
  156.              1A 80 D2 7A 03 1A 80 D3 8E 00 78 79 03 1A 80 CB 90 00 99 57 74 A8 23 31 FF 23 A8 24 33
  157.              FF 3D A7 9C 57 57 57 74 87 34 FF 24 9B 57 57 75 99 14 30 A8 16 02 98 57 57 F6 A7 89 92
  158.              55 16 01 16 02 7F 01 A8 89 92 FE 9D 16 02 90 14 24 37 04 AD 7D 41 07 16 03 8E 0B FF 88
  159.              AC B2 7E 02 33 09 B3 02 21 13 8F 0B 10 5F A2 09 0B 14 62 1A 61 3A 60 77 05 80 03 81 09
  160.              B0 AF 5F A8 88 92 80 7B 83 01 00 01 02 9A 1F FF 6F 83 02 01 9A 57 56 F6 A7 88 5F 17 E1
  161.              61 3B AA 6C 08 E5 5F AB 77 03 77 03 80 06 37 01 7D 82 00 14 80 07 A8 B0 37 06 03 2D F8
  162.              03 2E F7 8A 56 FF 46 60 5F 9C 1F 2B 9C 57 75 A7 88 92 22 90 00 99 57 74 A8 23 31 FF 3D
  163.              A8 23 33 0A 03 3D 14 D9 04 24 14 AB 5E 03 98 FA 16 02 98 57 57 F6 1A 5A 16 01 AA AE AB
  164.              AB AB 77 05 80 0A 16 04 81 02 7F 01 1A FF 80 16 02 98 FD 16 01 AA 7D 43 03 A8 7D 43 01
  165.              A9 7D 43 02 5F BD 1A 28 A7 B7 62 1D BC B4 B2 2C 06 3E 1A 15 90 00 98 20 6F 8E 17 03 98
  166.              09 17 A7 B7 62 1D BC B4 B2 2C 06 3F 14 80 02 16 01 7F 00 98 20 61 16 01 A7 30 A3 16 01
  167.              F6 61 40 AA 5F 1A 80 61 61 49 61 24 62 1F 77 02 77 02 5C 01 1A 80 9E BF BA 62 20 BA 2C
  168.              04 4A 1A 80 9C 14 62 20 BC 2C 03 4B 1A 80 98 61 47 61 24 62 24 77 02 61 51 62 1A 5C 04
  169.              1A 80 C3 83 01 00 14 AE 37 06 03 41 F8 03 2E F7 6E 56 61 26 61 27 61 24 62 1F 77 02 03
  170.              42 78 02 AC 77 03 99 57 75 A8 30 A8 16 02 81 02 7F 01 A8 89 92 50 16 03 61 43 61 44 61
  171.              45 5F 61 45 BA 61 46 B0 B0 6F 01 17 6F 02 20 AD 61 47 61 24 62 21 77 02 61 48 F0 62 1A
  172.              61 24 62 19 77 02 61 24 62 22 77 02 61 24 B9 77 02 04 11 78 05 77 04 77 01 32 02 20 78
  173.              02 B8 02 21 FF 54 00 14 8F 11 04 8E 18 FF 5A 00 14 8E 1A FF 5F 00 14 B3 B3 6D 9B 62 21
  174.              BD 62 21 AA 6A 04 4C 62 22 BE 62 22 AB 6A 04 4D 7E 02 20 00 61 4E 61 4F 61 24 62 24 77
  175.              02 03 50 78 02 BA 77 03 8E 17 FF 38 61 52 61 24 62 24 77 02 03 53 5D 02 14 61 24 62 24
  176.              77 02 77 03 32 05 20 78 03 5C 03 19 1E
  177.             )
  178.       2. MACRO-CALL-ERROR 0. "~S: invalid syntax for name and options: ~S" DEFSTRUCT
  179.       #S(HASH-TABLE EQ (:INITIAL-OFFSET . 217.) (:NAMED . 190.) (:TYPE . 183.)
  180.          (:PRINT-FUNCTION . 145.) (:INHERIT . 119.) (:INCLUDE . 119.) (:PREDICATE . 92.)
  181.          (:COPIER . 73.) (:CONSTRUCTOR . 41.) (:CONC-NAME . 8.)
  182.         )
  183.       "" "MAKE-" CONCAT-PNAMES DS-SYMBOL-OR-ERROR "~S ~S: argument list should be a list: ~S"
  184.       "~S ~S: At most one :INCLUDE argument may be specified: ~S" FUNCTION
  185.       "~S: Use of :PRINT-FUNCTION implicitly applies FUNCTION.~@
  186.                                     Therefore using ~S instead of ~S."
  187.       WARN "-PRINT-FUNCTION" LAMBDA (STRUCT STREAM DEPTH) (STRUCT STREAM DEPTH)
  188.       "~S ~S: unknown option ~S" "~S ~S: invalid syntax in ~S option: ~S"
  189.       "~S ~S: not a ~S option: ~S" "-P" "~S ~S: There is no :PREDICATE on unnamed structures." "-"
  190.       "MAKE-" "COPY-" VECTOR LIST "~S ~S: invalid :TYPE option ~S"
  191.       "~S ~S: The :INITIAL-OFFSET must be a nonnegative integer, not ~S"
  192.       "~S ~S: :INITIAL-OFFSET must not be specified without :TYPE : ~S" 1. DEFSTRUCT-DESCRIPTION
  193.       "~S ~S: included structure ~S has not been defined." CONS QUOTE LOAD-TIME-VALUE SVREF GET
  194.       ('DEFSTRUCT-DESCRIPTION) (0.) "~S ~S: included structure ~S must be of the same type ~S."
  195.       #.#'COPY-LIST 3. #.#'FIRST #.#'EQ
  196.       "~S ~S: included structure ~S has no component with name ~S." "DEFAULT-" :READ-ONLY
  197.       "~S ~S: The READ-ONLY slot ~S of the included structure ~S must remain READ-ONLY in ~S."
  198.       :TYPE SUBTYPEP
  199.       "~S ~S: The type ~S of slot ~S should be a subtype of the type defined for the included strucure ~S, namely ~S."
  200.       "~S ~S: ~S is not a slot option." :INHERIT TYPEP
  201.       "~S ~S: structure of type ~S can't hold the name." SYMBOL "DEFAULT-"
  202.       "~S ~S: There may be only one slot with the name ~S." "~S ~S: ~S is not a slot option."
  203.       DS-MAKE-BOA-CONSTRUCTOR DS-MAKE-KEYWORD-CONSTRUCTOR 4. #.#'THIRD ('DEFSTRUCT-DESCRIPTION)
  204.       EVAL-WHEN (LOAD COMPILE EVAL) LET #.#'LIST %PUT 'DEFSTRUCT-DESCRIPTION
  205.       CLOS::DEFINE-STRUCTURE-CLASS DS-MAKE-PRED DS-MAKE-COPIER DS-MAKE-ACCESSORS DS-MAKE-DEFSETFS
  206.       SETF DOCUMENTATION ('STRUCTURE) 'STRUCTURE-PRINT REMPROP ('STRUCTURE-PRINT)
  207.   )  )